set.seed(04232021)
library(caret)
library(e1071)
library(ggplot2)
library(glmnet)
library(glmnetUtils)
if (!exists("expr", inherits=FALSE)) {
if (file.exists("../data/processed/expr.Rda")) {
load("../data/processed/expr.Rda")
} else {
expr <- read.csv("../data/raw/Brain_GSE50161.csv")
dir.create("../data/processed", showWarnings=FALSE)
save(expr, file="../data/processed/expr.Rda")
}
}
head(expr)